Labels:text | electronics | screenshot | display | software | computer icon | web page | website | operating system | multimedia software OCR: Microsoft Excel - EMPX.XLS File Edit View Insert Run Tools Window Help ABC do Er E fx E + B I U $ % .09 .... + Sub EmpData() ' Declare variables as objects Dim OraSession As Object Dim OraDatabase As Object Dim EmpDynaset As Object Dim flds () As Object Dim fldcount As Integer Set OraSession = CreateObject ( "OracleInProcServer . XOraSession") Set OraDatabase = OraSession. OpenDatabase ("Oracle7", "scott/tiger", 0g) Set EmpDynaset = OraDatabase. CreateDynaset ( "select * from emp", 0%) Range ( "A1 : H15") . Select Selection. ClearContents K DI Sheet Subroutines Sheet3 Sheet4 Sheet5 She + Ready
